home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln1286.arc / BNCHMARK.ADA / CHAP2.ADA < prev    next >
Text File  |  1986-09-06  |  1KB  |  69 lines
  1. with TEXT_IO; use TEXT_IO;
  2.  
  3. procedure CHAPTER_2 is
  4.  
  5.     --
  6.     -- Selected tests from Chapter Two of the Ada LRM
  7.     --     Author: Bruce A. Bergman
  8.     --     Source available from Mark Petersen's Alpo-Net FIDO board at
  9.     --     (619) 741-3412, 300/1200/2400 8,N,1
  10.     --
  11.  
  12.  
  13.     c, d    : character;
  14.     i, j, k : integer;
  15.     s, t    : string (1..48);
  16.  
  17. begin
  18.  
  19.     --
  20.     -- Here are a few strings literals.
  21.     -- The last two should be equal.
  22.     --
  23.  
  24.     s := "here is a sentence " &
  25.          "split across two source lines";
  26.     s := "this is a LONG " & "string literal                   ";
  27.     t := "this is a " & 'L' & 'O' & 'N' & 'G' & ' ' &
  28.          "string literal                   ";
  29.  
  30.     if s /= t then
  31.         put_line("Failed string check");
  32.     end if;
  33.  
  34.     --
  35.     -- Here are some character literals.
  36.     --
  37.  
  38.     c := ASCII.tilde;    -- Tilde character
  39.     d := '~';
  40.  
  41.     if c /= d then
  42.         put_line("Failed character check");
  43.     end if;
  44.  
  45.     --
  46.     -- Integer literals.
  47.     --
  48.  
  49.     i := 1_000;    -- one thousand
  50.     j := 1E+3;
  51.  
  52.     if i /= j then
  53.         put_line("Failed exponent check");
  54.     end if;
  55.  
  56.     --
  57.     -- Based literals.
  58.     --
  59.  
  60.     i := 16#0FF#;        -- decimal 255, binary 11111111
  61.     j := 255;            -- hex FF, binary 11111111
  62.     k := 2#11111111#;    -- hex FF, decimal 255
  63.  
  64.     if i /= j and j /= k then
  65.         put_line("Failed based literal check");
  66.     end if;
  67.  
  68. end CHAPTER_2;
  69.